home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / !runtime / unix.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-18  |  1.8 KB  |  81 lines  |  [TEXT/R*ch]
  1. /* unix.c -- Moscow ML C primitives available only under Unix */
  2.  
  3. #include <stdlib.h>
  4. #include <sys/param.h>
  5. #include <sys/types.h>
  6. #include <sys/stat.h>
  7. #include <sys/utsname.h>
  8. #include <unistd.h>
  9. #include "fail.h"
  10. #include "memory.h"
  11. #include "str.h"
  12.  
  13. value sml_realpath(v)          /* ML */
  14.      value v;
  15. { 
  16.   char buffer[MAXPATHLEN];
  17.   char *result;
  18.  
  19. #if defined(ultrix) || defined(__osf__) || defined(__CYGWIN32__)
  20.   failwith("realpath not supported");
  21. #else
  22.   result = realpath(String_val(v), buffer);
  23.   if (result == NULL) 
  24.       failwith("realpath");  
  25.   return copy_string(result);
  26. #endif
  27. }
  28.  
  29. value sml_uname(v)          /* ML */
  30.      value v;
  31. {    
  32.   struct utsname buf;
  33.   value res;
  34.   Push_roots(r, 1);
  35.  
  36.   if (uname(&buf) == -1) 
  37.       failwith("uname");  
  38.   res = alloc (3, 0);
  39.   r[0] = res;
  40.   Field (r[0], 0) = copy_string (buf.machine);
  41.   Field (r[0], 1) = copy_string (buf.sysname);
  42.   Field (r[0], 2) = copy_string (buf.release);
  43.   res = r[0];
  44.   Pop_roots();
  45.   return res;
  46. }
  47.  
  48. value sml_islink(path)          /* ML */
  49.      value path;
  50. { struct stat buf;
  51.  
  52.   if (lstat(String_val(path), &buf) == -1)
  53.       failwith("lstat");
  54.   return Val_bool((S_IFLNK & buf.st_mode) == S_IFLNK);
  55. }
  56.  
  57. value sml_readlink(v)          /* ML */
  58.      value v;
  59. { 
  60.   char buffer[MAXPATHLEN];
  61.   long result;
  62.  
  63.   result = readlink(String_val(v), buffer, MAXPATHLEN);
  64.   if (result == -1 || result >= MAXPATHLEN) 
  65.       failwith("readlink");  
  66.   buffer[result] = '\0';
  67.   return copy_string(buffer);
  68. }
  69.  
  70. value sml_devinode(path)          /* ML */
  71.      value path;
  72. { struct stat buf;
  73.   double dev_inode;
  74.  
  75.   if (stat(String_val(path), &buf) == -1)
  76.       failwith("stat");
  77.   /* Combine the device and inode into a real number */
  78.   dev_inode = ((double)buf.st_dev * (1 << 17)) + (double)buf.st_ino;
  79.   return copy_double(dev_inode);
  80. }
  81.